home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / FAST.HIRES.ERASE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  671b  |  23 lines
  1. 0  GOTO 1000
  2. 500  REM  HIRES ERASING
  3. 502  REM CALL -3082 WILL CLEAR 
  4. 503  REM THE CURRENT HIRES PAGE
  5. 504  REM TO THE LAST HPLOT COLOR
  6. 505  HGR 
  7. 507  FOR T = 1 TO 25
  8. 510  HCOLOR=  RND(1) *6 +1: HPLOT 0,0: CALL  -3082
  9. 520  NEXT T
  10. 1000  TEXT : HOME 
  11. 1010  VTAB 10: PRINT "A QUICK METHOD TO FILL-IN HIRES"
  12. 1015  PRINT : PRINT 
  13. 1020  PRINT "<RETURN> TO VIEW"
  14. 1030  PRINT "ESC TO EXIT"
  15. 1040  PRINT "SPACE TO LIST"
  16. 1045  PRINT : PRINT 
  17. 1050  PRINT : PRINT : PRINT "CHOICE ?";: GET AN$
  18. 1070  PRINT 
  19. 1075  IF AN$ =  CHR$(27)  THEN  PRINT  CHR$(4)"RUN MENU"
  20. 1080  IF AN$ =  CHR$(13)  THEN 500
  21. 1090  IF AN$ = " "  THEN  LIST 500,520
  22. 1100  FOR PA = 1 TO 4000: NEXT PA
  23. 1120  GOTO 1000